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$eject 












$ SMALL RDM 






1 




• Hardware : 


do; 






2 


1 


Declare 


del li 


terally 


'declare'; 


3 


1 


Del 


lit " li 


terally 


'literally'; 


4 


1 


Del 


addr li 
ext li 
init li 
intg li 
proc li 
ptr li 
pub li 
rent li 
ret ' li 
struc li 
boolean li 
true li 
false li 




'address', 

'external', 

'initial'. 

'integer', 

'procedure', 

'pointer', 

'public', 

'reentrant', 

'return', 

'structure', 

'byte', 

'OFPH', 

'OOOOH' ; 
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$subtltle('KB: Hardware bit defs') 



5 
6 
7 
8 

9 
10 
11 
12 



del SR$lnCblt 
del SR$enable 
del CBl$lntblt 
del CBI$po8_edge 

del kb$datablt 
del kb$aekctl 
del kb$TIMEOUT 
del timerl ena 



lit '4'; /* KB shift register Interrupt mask in6522 lER/IFR */ 

lit 'Oeh^ /* KB shift register enable in 6522 ACR */ 

lit 'lOh'; /* KB RDY edge-sense interrupt nask 6522 PCR */ 

lit 'lOh'; /* KB RDY edge-sense control in 6522 PCR */ 

/* KB DATA level */ 

/* KB ACK control for 6522 output */ 

/* error timeout in milliseconds */ 

/* timer 1 interrupt mask in 6522 lER/IFR */ 



lit 


'40h'; 


lit 


'2'; 


lit 


'300'; 


lit 


'OcOh'; 
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13 



$eject 

/* KYBRD PORT (e8040. .e804f ) */ 
del vla(16) struc( 



/* 6522 port organization 



*/ 



14 1 del kb$state 

15 1 del kb$data 



RB 


byte. 


RA 


byte, 


DDRB 


byte, 


DDRA 


byte. 


TIMERl 


word, 


TIMERIL word, 


TIMER2 


word, 


SR 


byte. 


ACR 


byte, 


PCR 


byte. 


IFR 


byte, 


lER 


byte. 


RAX 


byte) at(0e8000h); 


byt 


ej 


byt 


e; 



/* current state of keyboard stateware */ 
/* constructed data from keyboard */ 



16 
17 



1 
1 



/* nybble convert table for inverted shift reg */ 
del Ctable(*) byte data (0,8,4,0ch, 2,0ah,6,0eh, l,9,5,0dh, 3,0bh,7,0fh); 



del tick 



lit '50'j 



/* console clock rate In milliseconds */ 



NOTE: Sample Programs only - Not BIOS Reference Listings! 



P 



PL/M-86 COMPILER VICTOR Business Products, Inc. (c) 1982 V9000 Hardware 04/01/82 PAGE • 5 

KB: external routines 

$8ubtltle('KB: external routines') 

/* 

* signal user about keyboard error state ~ ring bell 
*/ 

18 1 del slgnal$KB$error lit 'Rlngbell'; 

/* Rlngbe 11 found In SOUND module */ 

/* 

* Process key board event ~ In external module 

*/ 

19 1 Process $Event: proc(event) byte ext; 

20 2 del event byte; 

21 2 end; 

/* 

* Software clock resource — set timeout for Interrupt to KB$re8et 

22 1 8et$KB$clock: proc(Perlod) ext; 

l^ 2 del Period Intg; /* timeout delay In milliseconds */ 

24 2 end set$KB$cloek; <■ -^ 



NOTE: Sample Programs only - Not BIOS Reference Listings! 



PL/M-86 COMPILER VICTOR Business Products, Inc. (c) 1982 V9000 Hardware 04/01/82 PAGE 

KB: Keyboard Stateware 

$8ubtltle('Ki8: Keyboard StStefware') 
/* 

* KB Interrupt entry (level 6) 
*/ 

kb$lrq: proc pub rent; , , 

do case kb$state; 
/* 

* state to state Is shift register (full) Interrupt 

kbstO: do; 

vla(4).ACR- vla(4).ACR and not SR$enable; /* disable shift register */ 

/* prepare for Interrupt on negative edge of KB RDY */ 
vla(4).PCR- vla(4).PCR and not CBI$pos_edge; 
vla(4).IER- 80h or CBl$lntblt; 
disable; /* time critical section */ 

kb$data - vla(4).SR; /* get KB data from SR (clears SR IRQ) */ 

vla(4).IER- SR$lntblt; /* disable SR Interrupt */ 

/* assert KB ACK control on Interrupt */ 

vla(4).RB - via(4).RB or kb$ackctl; /* (CBl IRQ Is reset) */ 

enable; /* end of critical section */ 

kb$8tate - 1; /* set to state 1 */ 

end; 

/* 

* state 1 to state 2; Interrupt from negative edge on KB$RDY 
*/ 

kbstl: do; 

disable; /* time critical section */ 

If (vla(4).RA and kb$datablt) <> then /* If data bit Is not low then */ 

call kb$error; /* stop bit error has occurred */ 

«l8e do; /* prepare for Interrupt on positive edge of KB RDY */ 

via(4).PCR- vla(4).PCR or CBl$pos_JBdge; 

/* release KB ACK control on Interrupt */ 

vla(4).RB - vla(4).RB and not kb$ackctl; /* (CBl IRQ Is reset) */ 

kb$gtate - 2; /* set to state 2 */ 

end; m 

enable; \} /* end of critical section '■f 

end; 



25 


1 


26 


2 


27 


3 


28 


4 


29 


4 


30 


4 


31 


4 


32 


4 


33 


4 


34 


4 


35 


4 


36 


4 


37 


4 


38 


3 


39 


4 


40 


4 


41 


4 


42 


4 


43 


5 


44 


5 


45 


5 


46 


5 


47 


4 


48 


^ 
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KB: Keyboard Stateware 

$eject 

/* 
* state 2 to state 0: Interrupt from positive edge on KB$RDY 
*/ 
kb8t2: do; 

If (vla(4).RA and kb$datablt) - then /* If data bit Is low then */ 

call kb$error; /* stop bit error has occurred */ 

else do; 

call kb$reset; /*reset hardware/software for next event */ 

/* call event processing routine with order of bits reversed to */ 
/* reflect physical key number and event type (open or close) */ 

54 5 if not Proces8$Event( shl(Ctable(kb$data and Ofh),4) 

or Ctable(8hr(kb$data,4)) )'~Chen 

55 5 ' call 8ignal$KB$error; /* signal error in event process */ 

56 5 end; 

57 4 end ; 

58 3 end ; 

59 2 end kb$irq; 



49 


3 


50 


4 


51 


4 


52 


4 


53 


5 
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60 


1 


61 


2 


62 


2 


63 


2 


64 


2 


65 


2 


66 


2 


67 


2 


68 


2 


69 


2 


70 


1 


71 


2 


72 


2 


73 


2 


74 


2 


75 


1 


76 


2 


77 


2 


78 


2 


79 


2 


80 


2 


81 


2 


82 


2 


83 


2 


84 


2 


85 


2 


86 


2 



$subtltle('KB: Keyboard support routines") 

kb$reset: proc rent;, 
del dummy byte; 

vla(4).IER - CBl$lntblt; 
vla(4).RB - vla(4).RB and not kb$ackctl; 
via(4).ACR - vla(4).ACR or SR$enable; 
dummy *■ vla(4).SR; 
vla(4).IER - 80h or SR$lntbit; 
kb$state - 0; 
call 8et$KB$clock(0); 
end kb$reset; 

kb$error: proc rent; 

via(4).RB - vla(4).RB or kb$ackctl; 

vla(4).IER - 7fh; 

call 8et$KB$clock(kb$TIME0UT); 
end kb$error; 

kb$lnlt: proc pub rent; 



/* puts KB hardware/software Into state */ 



/* clear CBl Interrupts 

/* release kb$ack 

/* enable shft reg 

/* clr any pending Irq 

/* enable sr Interrupts 

/* Inlt keybrd state 

/* clear timeout counter 



/* force kb$ack high 
/* allow no Interrupts 
/* time out keyboard 



vla(4).RB 

vla(4).DDRA 

vla(4).DDRB 

vla(4).IER 

vla(4).PCR 

vla(4).ACR 



vla(4).RB and (OFFh-3); 

vla(4).DDRA and not kb$datablt; 

vla(4).DDRB or kb$ackctl; 

7fh; 

0; 

0| 



vla(2).ACR- (vla(2).ACR and OcOh) or 40h: 
vla(2).tlmerlL- tlck*1000; 
via(2).IER •■ timer Ijena and 7£h; 
call kb$re8et; 
end kb$lnlt; 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 



*/ 
*/ 
*/ 
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$SUBTITLE ('CRTreg: controller chip registers') 

87 1 Da CRT$0 byte AT (0E8000H); 

88 1 DCL CRT$1 BYTE AT (0E8001H); 



/* CRT-chip address register */ 

/* CRT-chip internal register port */ 



/* 

* 

*/ 



Set CRT register 



89 1 set$CRT$reg: proc (reg, value) rent; 

90 2 del reg byte; 

91 2 del value byte; 
9 2 2 CRT$0- reg^^ 

93 2 CRT$1- value; 

94 2 end 8et$CRT$reg; 



/* select register 
/* set data 



*/ 
*/ 
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95 



$SUBTITLE ("CRTreg: cursor-display mode control") 

del rast$start lit "10"; /* CRT reg: cursor-start & cursor-display mode */ 



96 
97 
98 



1 
1 
1 



DCL Cursor$PAR BYTE; /* VAR: contents for CRT cursor-start raster & cursor display mode */ 
del bllnk$on boolean; /* FLAG: "O Blinking cursor on (fast) */ 

del curB$off boolean; /* FLAG: <>0 Cursor off */ 



99 
100 
101 



102 
103 
104 
105 



106 
107 
108 
109 



1 
2 
2 



1 
2 
2 
2 



1 
2 
2 
2 



Set cursor to current Cursor parameter byte* 



/* 
* 

*/ 
set$cursbr: proc rent; 

call set$CRT$reg(rast$start ,Cur8or$FAR) ; 
end 8et$eursor; 



Set block cursor. 



/* 

* 

*/ 
BL0CK$CRS : PROC RENT ; 

Cursor$PAR •• Cur8or$PAR AND OEOh; 
call set$cur8or; 
END BLOCK$CRS; 



Set underscore cursor. 



/* 

*/ 
UNDERSCORE$CRS:PROC RENT; 

Cursor$PAR - OOFh OR (Cursor$PAR AND OEOh); 
call aet$cur8or; 

END UNDERSCORE$CRS; 



/* set raster start reg 



/* set block cursor 
/* set cursor mode reg 



/* set underscore cursor 
/* set cursor mode reg 



*/ 



*/ 
*/ 



*/ 
*/ 
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CRTreg: cursor-display mode control 

$eject 

/* 

* Return cursor to previous modes: block or underline, steady or flashing 

*/ 

110 1 CURSOR$ON:PROC RENT; 

111 2 curs$o£f- false; /* reset cursor off flag */ 

112 2 If bllnk$on then Cursor$par" Cur8or$par or 060h; /* set to flashing mode */ 

114 2 else Cur8or$par'> Cur8or$par and OlFh; /* set to steady mode */ 

115 2 call 8et$cursor; /* set cursor mode reg */ 

116 2 END CURSOR$ON; 

/* 

* Turn cursor off. 

*/ 

117 1 CURSOR$OFF:PROC RENT; 

118 2 curs$off- true; /* set cursor off flag */ 

119 2 Cursor$PAR - 020h OR (Cursor$PAR AND OlFh); /* set to off mode */ 

120 2 call set$cursor; /* set cursor mode reg */ 

121 2 END CURSOR$OFF; 

/* 

* Set cursor blinking. 
*/ 

122 1 CRS$BLINK$ON:PROC RENT; 

123 2 bllnk$on- true; /* set blinking on flag */ 
1^4 2 If not curs$off then Cur8or$PAR- 060h OR Cur8or$PAR; /* set flashing, If not off */ 

126 2 call 8et$cursof; /* set cursor mode reg */ 

127 2 END CRS$BLINK$ON; 

/* 

* Set cursor steady* 

*/ 

128 1 CRS$BLINK$OFF:PROC RENT; 

129 2 bllnk$on- false; /* reset blinking on flag */ 
* 130 2 if not curs$o£f then Gursor$PAR" OlFh and Cur8or$PAR; /* set steady, if not off */ 

132 2 call 8et$cursor; /* set cursor mode reg */ 

133 2 END CRS$BLINK$0FF; 
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CRTreg: Cursor positioning 

^SUBTITLE ('CRTreg: Cursor positioning") 

134 1 del cursaddrH lit '14'; /* CRT reg: MSByte of cursor location word, bits: xx54$3210 */ 

135 1 del cursaddrL lit ' '15'; /* CRT reg: LSByte of cursor location word */ 



/* 

* Position Cursor to Absolute Font Cell number 

* and display bank 
*/ 

136 1 POS$Cursor: proc (Cell$number) pub rent; 

137 2 del Cell$NuQber word; /* Absolute Font Cell Number & dlplay bank */ 

138 2 call 8et$CRT$reg (cursaddrL, low(Cell$number)); 

139 2 call set$CRT$reg (cursaddrH, high(Cell$number)); 

140 2 end POS$Curaor; 
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141 



142 
143 
144 
145 
146 



147 

148 
149 
150 
151 



1 
2 
2 
2 
2 



1 
2 
2 
2 
2 



152 


1 


153 


2 


154 


2 


155 


2 


156 


2 


157 


1 


158 


2 


159 


2 


160 


2 


161 


2 



$ SUBTITLE ('CRT: video contrast & brightness") 
DCL CBctrl BYTE AT (0E8040H): 



/* Contrast & Brightness control register */ 
/* bits: CCCB$BB— */ 



Raise video contrast one level. 



/* 

* 

*/ 
contrast $up: proc rent; 
del a byte; 

if (a:- (CBctrl + 20h) and OEOh) O then 
CBctrl- (CBctrl and OlFH) or a; 
end contra8t$up; 

/* 
* Lower video contrast one level. 

*/ 
contrast $down: proc rent; 
del a byte; 

if (a:- (CBctrl - 20h) and OEOh) <> OEOh then 
CBctrl- (CBctrl and OlFH) or a; 
end contra8t$down; 



Raise video brightness one level. 



/* 

*/ 

bright$up: proc rent; 
del a byte; 

if (a:- (CBctrl + 4) and OICH) O then 
CBctrl- (CBctrl and 0E3H) or a; 
end bright $up; 
/* 
* Lower video brightness one level. 
*/ 
bright $down: proc rent; 
del a byte; 

if (a:- (CBctrl - 4) and OlCh) O OlCh then 
CBctrl- (CBctrl and 0E3H) or a; 
end brlght$down; 



/* add & check upper limit 
/* set contrast, bits: 765 



/* sub & cheek lower limit 
/* set contrast, bits: 765 



/* add & check upper limit 
/* set brightness, bits: 432 



/* sub & check lower limit 
/* set brightness, bits: 432 



*/ 
*/ 



*/ 
*/ 



*/ 
*/ 



*/ 



NOTE: Sample Proararas. only, r Not BIOS Reference LIstinasI 



PL/H-86 COMPILER 



VICTOR Business Products, Inc. 
CRt: display RAM/Font Cells 



(c) 1982 V9000 Hardware 



04/01/82 



PAGE 14 



$SUBTITLE ('CRT: display RAM/Font Cells') 

162 1 del 8creen$ram word at (OFOOOOh); 

163 1 del 8creen$addr ptr; 

164 I DCL SCREEN based screen$addr (2000) word; 



/* memory address of display RAM */ 

/* display ram pointer, base of word ARllAY */ 

/* ARRAY of Font Cell Pointers */ 







/* 












* 


Screen Buffer Word 


variab 


j 




*/ 








165 


1 


del 


ehar$mode 


word 


■ pub; 


166 


1 


del 


char$baiBe - 


word 


pub; 


167 


1 


DCL 


REVBIT 


LIT 


'8000H' 


168 


1 


DCL 


BGBIT 


LIT 


'4000H' 


169 


1 


DCL 


UNDBIT 


LIT 


'2000H' 


170 


1 


del 


INVBIT 


lit 


'lOOOh' 


171 


1 


del 


extraBIT 


lit 


'0800h' 



/* CRT attribute bits: 7654$3 

/* CRT Font Cell Pointer base for 
/* ASCII symbol index 



*/ 

*/ 
*/ 



/* 

* Display symbol from character set (typically ASCII) 

* at absolute Font Cell number 

* (typically: <line> * <display width> + <column> ) 

* with current Cursor & Display modes. 
*/ 



172 


1 


173 


2 


174 


2 


175 


2 


176 


2 



Di8play$symbol: proc (Symbol$code,Cell$number) pub rent; 

del Symbol$code byte; /* Symbol print code 

del Cell$Number word; /* Absolute Font Cell Number 

8creen(Cell$Number)" (Symbol$code + char$base) OR char$mode; 
end Display$symbol; 



*/ 
*/ 
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CRT hardware Initialization 

$SUBTITLE ('CRT hardware Initialization") 

/* COMMENT THIS I III */ 

177 1 DCL CRT$conflg (*) BYTE DATA (92,80, 81,0CFh, 25,6, 25,25, 3,14, 0,15, 0,0, 0,0); 



CRT$Inlt: PROC; 
DCL I BYTE; 



char$mode- BGBIT; 
char$base- 20; 

curs$o££'" false; 
bllnk$on'- false; 
Cursor? PAR- 0; 

DO I-O TO OFH; 

CALL SET$CRT$REG (I, (CRTconf lg(I))) ; 
END; 



178 


1 


179 


2 


screen$rain; 

! 


lai 


2 


182 


2 


18^ 


2 


184 


2 


185 


2 


186 


2 


187 


3 


188 


3 



189 2 END CRT$Inlt; 
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^SUBTITLE ('SOUND variables & hardware defs') 



190 



del bell$freq LIT '76' 



199 



/* period of bell tone: frequency- 14.9KHz */ 



/* TIMERlt codec clock frequency */ 

/* ACR: codec clock control register */ 

/* */ 

/* SR: volume shift-register */ 

/* ACR: SR control register */ 

/* TIMER2: volume SR clock */ 

/* FLAG: bell sound presently active */ 
il (nine levels: — > 8) 

/* volume shift pattern lookup table */ 
del vol$table (*) byte data (OFFh,7FH,3FH,lFH,OFH,7,3,l,0); 



191 1 


del 


code c$ elk 


word at (0E8084h) 


192 1 


del 


codec$ctl 


byte at (0E808Bh) 


193 1 


del 


codec$8da 


word at (OE8060h) 


194 1 


del 


volume 


byte at (0B802Ah) 


195 1 


del 


vol$ctl 


byte at (0E802Bh) 


196 1 


del 


vol$clk 


word at (0E8028h) 


197 1 


del 


bell$on byte; 




198 1 


del 


vol$level byte; 


/*current volume 1 
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$ SUBTITLE ('SOUND: Bell control') 



/* 
* Software clock resource -- set timeout for Interrupt to Bell$clock 
*/ 



200 1 set$BELL$clock: proc (Period) ext; 

201 2 del Period Intg; 

202 2 end 8et$BELL$clocki 



/* timeout delay In milliseconds 



*/ 



203 


1 


204 


2 


205 


2 


206 


2 



/* 

* 

*/ 



CODEC Hardware reset 



Bell$lnlt: proc pub rent; 

vol$levei- length(vol$table)-2; 
call Beil$clock; 
end Bell$lnlt; 



/* set Initial volume level near max */ 
/* set hardware to a known & quiet state */ 
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207 

208 

209 
210 
211 
212 

213 
214 
215 
216 

217 

218 
219 
221 
222 

223 
224 
225 
226 
227 
228 



2 
2 
2 
2 

2 
2 
2 
2 



I 
2 
3 
3 

3 
3 
3 
3 
2 
2 



$eject 

Bell$clock: 

codec$ctl 

codec$sda 
codec$ada 
codec$8da 
codec$8da 



proc pub rent; 

codec$ctl and not OCOh; 

5E00h: 
0D40h; 
0AA80h; 
OOCOh; 



/* disable codec clock 



*/ 



/* Initialize codec SDA to Input mode... */ 
/* ... to reduce extraneous noise */ 



vol$ctl - (yol$ctl and not 3Ch) or lOh; /* set SR & T2 volume register modes */ 

vol$clk - 1; /* volume clock frequency set beyond perception */ 

volume - vol$table(vol$level); /* set volume to current level */ 

bell$on - false; /* get bell state' to off */ 



end bell$clock; 

Rlng$bell: proc pub rent; 
If not bell$on then do; 
call bell$clock; 
codec$8da - 0f80h; 

codec$ctl * codec$ctl or OcOh; 
codec$clk •■ bell$freq; 
bell$on - true; 

end; 
call 8et$bell$clock(100); 
end; 



/* start bell If sound Is off */ 
/* Inlt codec hardware on every bell */ 
./* set output waveform to 4 up & 4 down, */ 



a low amplitude triangle wave. 
/* set codec clock to free run 
/* set audio pitch frequency 
/* set bell state on 



*/ 



*/ 
*/ 



/* turn off bell In 100 milliseconds */ 
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229 
230 
231 
232 
233 
234 



235 
236 
237 

238 

241 



1 
2 
2 
2 
2 
2 



1 
2 
2 

2 

2 



$SUBTITLE ('SOUND: volume control') 
/* 
* Raise CODEC volume one level* 

*/ 
volume$up: proc rent; 

if vol$level >■ length(vol$table)-l then 
vol$level'- length(vol$table)-l; 
else vol$level> vol$level-M; 
volumex vol$t8ble(vol$level); 
end volume$up; 



/* check upper limit 
/* set to max volume 
/* bump level up by one 
/* set volume register 



Lower CODEC volume one level. 



/* 
* 

*/ 
volume$down: proc rent; 

if vol$level >- length(vol$table)-l then 
vol$level- length(vol$table)-2; 
else 

if vol$level<>0 then vol$level" vol$level-l; /* drop level by one 
volume" vol$table(vbl$level); /* set volume register 

end volume$down; 



/* check upper limit 
/* set to max volume-1 



*/ 
*/ 
*/ 
*/ 



*/ 
*/ 

*/ 
*/ 
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SIO: Serial I/O dvrs for TTY: and ULl: 

$8ubtltle('SI0: Serial I/O dvrs for TTY: and ULl:') 

/*ctr device dels*/ 

242 1 del sloccr etruc 

(adata byte^ 
bdata. byte, 
XXX ; byte, 

ctrctl byte) at (0E0020h); 
/*slo device dels*/ 

243 1 del slodev struc 

(adata byte, 
bdata byte, 
actl byte, 
bctl byte) at(0E0040h); 

244 1 del rx$avall literally '1', 

tx$empty literally '4'; 

245 1 del 8erlal_param8 struc 

(actrlsb byte, /*LSByte of chan a.'s baud rate */ 

actrmsb byte, /*MSByte ... */ 

bctrlsb byte, /*LSByte of chan b.'s baud rate */ 

bctrmab byte, /*MSByte ... */ 

/* If <baud> then Isb - ??h msb - ??h 1.25Mhz/(<baud>*16) * 

50 — > lAh 06h 50.00 -0- (mln.tol.dlst.43.75Z) 

75 — > llh 04h 75.00 -0- ( " 43.75%) 

110 — > C6h 02h 110.00 -0- ( " 43.75%) 

134.5 — > 44h 02h 134.00 -0.37% ( * 40.23%) 

150 — > 08h 02h 150.00 -0- ( " 43.75%) 

200 — > 86h Olh 200.00 -0- ( " 43.75%) 

300 — > 04h Olh 300.00 -0- ( " 43.75%) 

600 —> 82h OOh 600.00-0- ( " 43.75%) 
1.2k — > 41h OOh 1201.00 +0.08% ( " 42.99%) 

NOTE: sample Programs only - Not BIOS Reference L1st1nv,-i 
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SIOJ Serial I/O dvrs for TTY; and ULl: 

$eject 



2Ch OOh 1775.00 -1.39X ( " 30.54%) 
1.8k — > 2Bh OOh 1816.00 +0.09% ( " 42.88%) 





2.0k — > 


27h 


OOh : 




2.4k — > 


21h 
20h 


OOh 
OOh : 




3.6k — > 

1 V 


16h 
15h 


OOh 
OOh 




4.8k — > 


llh 
lOh 


OOh 
OOh ' 




9.6k — > 


09h 
08h 


OOh 1 
OOh 1 



28h OOh 1953.00 -2.36% ( " 21.33) 

2003.00 40.15% ( . " 42.32) 

2367.00 -1.38% ( " 30.64%) 

2441.00 +1.71% ( " 27.51%) 

3551.00 -1.36% ( " 30.83%) 

3720.00 +3.33% ( " 12.4%) 

4595.00 -4.27% ( " 3.185%) 

4882.00 +1.02% ( " 34.06%) 

8680.55 -9.58% (DISTORTED) 

9765.56 +1.73% (min. tol.dlst.27.32%) 

06h OOh 13020.83 -9.58% (DISTORTED) 

05h OOh 15625.00 +8.51% (DISTORTED) 



05h OOh 15625.00 -18.62% of 19.2k (DISTORTED) 
19.2k — > 04h OOh 19531.25 +1.02% (mln.tol.dl8t.34.06%) 

mln.tol.dlst.. figure assumes- no channel noise effects. 
NOTE: possible noise DOES NOT Includes bias dlstorltlon 
caused by various cable capacitance effects*/ 
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SIO: Serial I/O dvrs for TTY: and ULl: 

$eject 

cr2a byte, /*bus Interface option: lOh If baud a <- baud b 

14h-^f baud a > baud b*/ 

cr4a byte, 
crAb byt„e, 

/*cr4x (16x)$54$(8tops)$(even)$(parenb) - 4?h 
01 00 88 e p 

ss •• 01 1 stop 

- 10 1.5 stop 

- 11 2 stop 

e - 1 even 

e - odd, byte transparent 
^ P ■ 1 even or odd 



p - byte transparent*/ 



cr3a byte, 
cr3b byte, 

/*cr3x (rblts)$(autoenb)$4$3$2$l$(renb) - ?lh 
bb 1 1 
bb - 11 byte transparent cr3x - Elh- n 
- 01 even, odd cr3x - 61h*/ 

cr5a byte, 
cr5b byte) EXT; 

/*cr5x (dtr)$(tblts)$(br)$(tenb)$2$(rt8)$0 - ?Ah 
1 bb 1 10 
bb •■ 11 space, mark cr5x - EAh 
bb - 01 even, odd, no cr5x ■ AAh*/ 
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SIO: Serial I/O dvrs for port A — TTY$INSTAT & TTY$STAT 

$subtitle('SIO: Serial I/O dvrs for port A — TTY$INSTAT & TTY$STAT') 

246 1 TTY$ln$8tat:proc boolean PUB; 

247 2 If ( (slodev.actl AND rx$avall) O 0) 

then re turn (true); . 

249 2 return(falae); 

250 2 end TTY$in$8tat; 



251 I TTY$stat:proc boolean PUB; 

252 2 If ( (slodev.actl AND tx$empty) - 0) 

then re turn (true); 

254 2 return(false); 

255 2 end TTY$8tat; 
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$8ubtltle('SI0; Serial- I/O dvrs for port A — TTY$GET & TTY$PUT') 



256 1 TTY$get:projc byte PUB; 

/*user must not Activate thls^ procedure If slodev chan. a reg. ptr 
Is not set to (only <> 6 If user has been mucking with hardware*/ 

257 2 do whlle( (slodev. actl AND rx$avall) - 0); /*walt forever till empty 

258 3 end; 

259 2 return(8lodev.adata); /*lnput form 7201 

260 2 end TTY$get; 



*/ 
*/ 



261 1 TTY$put:proc(char) PUB; 

262 2 del char byte; 

/*u8er must not activate this procedure If slodev chan. a reg". ptr 
Is not set to (only <> If user has been mucking with hardware*/ 

263 2 do whlle( (slodev. actl AND tx$empty) - 0); /*walt forever till empty 

264 3 end; 

265 2 slodev. adata ■• char; /*output a char 

266 2 return; 



*/ 
*/ 



267 



end TTY$put; 
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$8ubtltle('SI0: Serial I/O dvra for port B — UL1$STAT & ULIPUT') 



268 1 ULl$stat:proc boolean PUB; 

269 2 If ( (slodev.bctl AND tx$empty) 

then return(true); 

271 2 return(fal8e); 

272 2 end ULl$stat; 



- 0) 



273 1 ULl$put:proc(char) PUB; 

274 2 del char byte; ' 

/*u8er must not activate thla procedure if siodev chan. b reg. ptr 
is not set to (only <> if user has been mucking with hardware*/ 

275 2 do whlle( (slodev.bctl AND tx$eiBpty) - 0); /*wait forever till empty 

276 3 end; 

277 2 siodev. bdata - char; /*output a char 

278 2 return; 

279 2 end ULl$put; 



*/ 
*/ 
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$8ubtitle('SI0i Serial I/O dvrs for ports A & B — SIO$INIT') 

280 1 SIO$lnlt:proc'PUB; 

281 2 slodev.actl - 00$011$000b; 

282 2 slodev.bctl - 00$011$000b; 



283 
284 
285 
286 
287 
288 



289 
290 



291 
292 
293 
294 



295 
296 
297 
298 



Z 
2 
2 
2 
2 
2 



2 
2 



2 
2 
2 
2 



2 
2 
2 
2 



/*chan. a reset 
/*chan. b reset 



/*load timer now; cant touch 7201 chip for 4 2.SMhz docks*/ 

sloctr.ctrctl - 36hi /*7$(ctra)$(rl)$(mode)$(bln) 

sloctr.adata "• serlal_params.actrl8b; 

sloctr.adata *■ serlaljparams.actrmsb; 

sloctr.ctrctl - 76hj /*7$(ctrb)$(rl)$(inode)$(bln) 

sloctr.bdata ■• serlal_params.bctrlsb; 

sloctr.bdata * serial params.bctrmsb; 



/*cr2a bus Interface option*/ 

slodev.actl ■ 2; 

slodev.actl ■• serial params.cr2a; 



/*cr4x*/ 

slodev.actl 

slodev.actl 

slodev.bctl 

slodev.bctl 

/*cr3x*/ 

slodev.actl 

slodev.actl 

slodev.bctl 

slodev.bctl 



serlal_param8 . cr4a; 

4; 

serial params.cr4b; 



3; 

ser lal_param8 . cr3a y 

3; 

serlal__parains . cr3b; 



/* — >cr4a 

/*— >cr4a 
/*— >cr4b 

/*_->cr3a 
/*— >cr3b 



*/ 
*/ 



*/ 
*/ 



*/ 

*/ 
*/ 

*/ 
*/ 
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SIO: Serial I/O dvrs for ports A & B — - SIO$INIT 

$eject 

/*— >cr5a */ 

/*— >cr5b */ 

/*crOx reset ext/st Intrs to enable modem control sense — > autoenb chans. 
also — > crlx, set Intr params*/ 

303 2 siodev.actl •> 00$010$001b: 

304 2 siodev.actl - 0; /*no Intra */ 

305 2 slodev.bctl - 00$010$001b; 

306 2 slodev.bctl - 0; /*no Intra */ 

307 2 end 8lo$lnlt; 







/*cr5x*/ 


299 


2 


siodev.actl > 5; 


300 


2 


siodev.actl - serlal_param8.cr5a; 


301 


2 


slodev.bctl ■• 5; 


302 


2 


slodev.bctl - serial params.crSb; 
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PPORT — Centronics Interface routines 

$8ubtltle ('PPORT — Centronics interface routines ') 

/* 

* This module Implements the Initialization, LISTST, and LIST functions 

* for a Centronics-compatible parallel printer Interface, using the 

* 6522 VIA chip. 

* . 

* Our entry points are named pp$lnlt, LPT$stat, and LPT$put respectively, 

* it's up to our caller to decode the I/O byte and call the approp- 

* rlate routines. 
*/ 
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308 
309 



310 
311 
312 
313 
314 
315 



316 
317 



$eject 

declare 

declare 



pp^base pointer; 

pp based pp$base structure ( 

rb byte, 

ra byte, 

ddrb byte, 

ddra byte, 

tlcl byte, 

tlch byte, 

till byte, 

tllh byte, 

t2cl byte, 

t2ch byte, 

sr byte, ' 

acr byte, 

per byte, 

ifr byte, 

ier byte, 

rax byte 



/* baseaddr for a 6522 

/* 6522 template 

/* out-ln reg 'b' 

/* out-ln reg 'a' 

/* data-direction, reg 'b' 

/* data-direction, reg 'a' 

/* tl ctr(r)/lat(w) lo 

/* tl ctr hi 

/* tl latch lo 

/* tl latch hi 

/* t2 ctr(r)/lat(w) lo 

/* t2 ctr hi 

/* shift register 

/* auxiliary Ctrl reg 

/* peripheral Ctrl reg 

/* interrupt fig register 

/* Interrupt enbl register 

/* out-ln reg 'a' NO HANDSHAKE 



); 

/* 

* Bit definitions for Centronics-style parallel Interface, 'vial'. 
*/ 

declare 
declare 
declare 
declare 
declare 
declare 
/* 

* Bit definitions for multi-use pio, 'via2'. 

*/ 
declare 
declare 



vlal$ba8e literally 'Oe8020h'; 

ds$l literally 'Olh'i 

pi$h literally '02h' 

b2$h literally '20h'i 

ak§l literally '40h' 

8l$h literally '80h'i 



/* baseaddr for this chip 

/* data strobe (pbO) 

/* this datum for vfu (pbl) 

/* printer busy (pb5) 

/* printer ack (pb6) 

/* on-line and no error (pb7) 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 



via2$base literally '0e8040h'; 
te$h literally 'Olh'; 



/* baseaddr for this chip 
/* talk-enable line 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 



*/ 
*/ 
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$eject 
/* 

* initial setup for parallel printer port 

* Note we use via2 during this setup to get talk-enable turned on, and 

* thus someone MUST ALREADY HAVE VIA2 INITIALIZED. 
*/ 



318 
319 
320 
321 
322 
323 
324 
325 



326 



1 
2 
2 
2 
2 
2 
2 
2 



pp$inlt: procedure public; 
pp^base - via2$base; 
pp.rb - pp.rb or te$h; 
pp$ba8e ■ vlal$base; 
pp.ra - 0; 
pp.ddra - Offh; 
pp.rb » d8$l;' 
pp.ddrb - d8$l or pi$h; 



end pp$init; 



/* point to secondary chip for te 
/* set 'talk enbl' 
/* point struc at primary chip 
/* ra is dataport, ioit with O's 
/* set all ra bits as outgoing 
/* rb is ctrlport, init no ds/pi 
/* these 2 only are outgoing 
/* cal/ca2 cbl/cb2 not used 
/* timers/shiftreg not used 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
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327 


1 


328 


2 


330 


2 


331 


2 



$eject 

/* 

* Test status of printer, return true if on-line and not busy, else 

* false. For some reason, the Altos code explicitly deasserted data 

* strobe before testing; we'll assume that this represents an Altos 
''' fubar and is not required here. 

*/ 
LPT$8tat: procedure byte public; 

if (pp.rb and (sl$h or bz$h)) •■ sl$h then return Offh; 

return 0; 
end LPT$stat; 



332 


1 


333 


2 


334 


2 


336 


2 


337 


2 


338 


2 


339 


2 


340 


2 


341 


2 


342 


2 



/* 

* Put one character to the printer Interface. 

*/ 
LPT$put: procedure(ch) public; 
declare ch byte; 
do while LPT$stat •■ 0; end; 
pp.ra *• ch; 
disable; 

pp.rb •■ pp.rb and not d8$l; . 

pp.rb •■ pp.rb or d8$l; 
enable ; 
return; 
end LPT$put; 



/* wait for printer ready 

/* put outgoing char on the port 

/* assert data strobe 
/* deassert data strobe 



*/ 
*/ 

*/ 
*/ 
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Example software drivers for V9000 Hardware 

f 

$SUBTITLE ('Example software drivers for V9000 Hardware") 
343 1 end Hardware; 



MODULE INFORMATION: 

CODE AREA SIZE - 073EH 18S4D 

CONSTANT AREA SIZE - OOOOH OD 

VARIABLE AREA SIZE - 0014H 20D 

MAXIMUM STACK SIZE - OOOEH 14D 

807 LINES READ 

PROGRAM WARNINGS 

PROGRAM ERRORS 

END OF PL/M-86 COMPILATION 
c 
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